home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Taifun
/
Taifun 265 (1993-12-10)(Manewaldt, A.)(DE)(PD)(Disk 2 of 3).zip
/
Taifun 265 (1993-12-10)(Manewaldt, A.)(DE)(PD)(Disk 2 of 3).adf
/
Wortspiele
/
Was`n_das?V2.0
/
Was`n_das?V2.amosSourceCode
< prev
Wrap
AMOS Source Code
|
1992-06-03
|
4KB
|
230 lines
Screen Open 0,640,265,16,Hires
Dim B$(18),FREI(16)
Poke $BFE001,254
Colour 1,$0
Dir$="Words/"
Gosub LOARD
WRONG=1
OUTOF=1
RIGHT=1
HUT=1
MUT=1
NUTTE=1
Double Buffer
Autoback 1
TP:
GT=1
VT=2
Print At(0,0);"Try No.:"
Print At(70,0);"Lost Time:"
Gosub TIMEOUT
Gosub FALSCH
Gosub RRICHTIG
Gosub LORD
T$=Upper$(T$)
Timer=0
OPA=1
TEST:
T$=Upper$(T$)
For I=1 To 16
FREI(I)=True
Next
N=1
Repeat
WO=Rnd(Len(T$))
If FREI(WO)=True
Locate WO+36,11 : K$=Mid$(T$,N,1)
Print K$
FREI(WO)=False
Inc N
End If
Until N>Len(T$)
Paste Bob 145,0,33
Paste Bob 180,0,11
Paste Bob 215,0,29
Paste Bob 250,0,48
Paste Bob 285,0,24
Rem Paste Bob 320,0,28
Paste Bob 355,0,14
Paste Bob 390,0,11
Paste Bob 425,0,29
Paste Bob 460,0,42
Paste Bob 250,35,32
Paste Bob 285,35,3
Paste Bob 330,35,40
Paste Bob 355,35,1
NEU:
Rem Print At(37,G+11);K$
Curs Off
Change Mouse 2
Reserve Zone 30
Get Sprite Palette
Flash Off
Colour 1,$0
NR=11
B=1
X=0
Paste Bob 0,200,NR
Set Zone B,0,200 To X+35,235
For I=1 To 12
X=X+35
NR=NR+1
B=B+1
Paste Bob X,200,NR
Set Zone B,0,200 To X+35,235
Next I
X=0
NR=NR+1
B=B+1
Paste Bob 0,235,NR
Set Zone B,0,235 To X+35,270
For I=1 To 12
X=X+35
NR=NR+1
B=B+1
Paste Bob X,235,NR
Set Zone B,0,235 To X+35,270
Next I
X=X+70
P=X
Paste Bob X,200,27
X=X+35
Paste Bob X,200,31
X=X+35
Paste Bob X,200,19
X=X+35
Paste Bob X,200,30
Set Zone B+1,P,200 To X+35,235
P=P+35
Paste Bob X-35*2,235,24
Paste Bob X-35,235,15
Paste Bob X,235,33
Set Zone B+2,P,235 To X+35,270
Limit Mouse 135,249 To 440,300
L=35*6
M=35*3
TERROR:
G=0
For G=1 To 3
Locate 0,10
Bob 0,15,10,G+1
Print At(0,12);" "
NEENEE:
J=0
For R=1 To 5
J=J+1
Do
GT=Timer/60
VT=Timer/600
If GT>9 Then Timer=0 : OPA=OPA+1
If OPA>5 Then Bob 1,565,10,1 : Bob 2,600,10,1 : Goto ZEIT
Bob 1,565,10,VT+OPA
Bob 2,600,10,GT+1
C=Mouse Click
If C<>0
V=Mouse Zone : Goto OUT
End If
Loop
OUT:
A=0
B=64
For I=1 To 26
A=A+1
B=B+1
If V=A Then W$=Chr$(B) : Goto OUT2
Next I
If V=27 Then Stop
If V=28 Then Print At(37,22);" " : SCHWELLFU�$="" : Goto NEENEE
OUT2:
If J=1 Then Print At(37,22);" "
If J=1 Then A$=W$ : Q=37
If J=2 Then B$=W$ : Q=38
If J=3 Then C$=W$ : Q=39
If J=4 Then D$=W$ : Q=40
If J=5 Then E$=W$ : Q=41
Print At(Q,22);W$
SCHWELLFU�$=SCHWELLFU�$+W$
Next R
Print At(37,G+13);SCHWELLFU�$
If SCHWELLFU�$=T$ Then SCHWELLFU�$="" : Goto RICHTIG
SCHWELLFU�$=""
Next G
Goto TRIES
TRIES:
Print At(50,15);" Out of tries!"
Print At(50,16);"the correct answere was"
Print At(50,17);" ";T$;" "
Print At(50,18);" Now press any key ..."
Wait Key
Print At(50,15);" "
Print At(50,16);" "
Print At(50,17);" "
Print At(50,18);" "
WRONG=WRONG+1
Goto LOOM
LOOM:
Reserve Zone
For G=1 To 5
Print At(37,G+13);" "
Next G
Print At(37,22);" "
Goto TP
ZEIT:
Print At(50,15);" Out of time!!"
Print At(50,16);"the correct answere was"
Print At(50,17);" ";T$;" "
Print At(50,18);" Now press any key ..."
Wait Key
Print At(50,15);" "
Print At(50,16);" "
Print At(50,17);" "
Print At(50,18);" "
OUTOF=OUTOF+1
Goto LOOM
RICHTIG:
Print At(50,15);" Yo, that`s it!"
Print At(50,16);"So get ready for the"
Print At(50,17);" next word ... "
Print At(50,18);" Now press any key ..."
Wait Key
Print At(50,15);" "
Print At(50,16);" "
Print At(50,17);" "
Print At(50,18);" "
RIGHT=RIGHT+1
Goto LOOM
TIMEOUT:
Print At(71,8);"Timeouts:"
If OUTOF>10 Then HUT=HUT+1 : OUTOF=1
If HUT=10 Then HUT=0
Bob 4,565,73,OUTOF/11+HUT
Bob 5,600,73,OUTOF
Return
FALSCH:
Print At(0,8);"Incorrect:"
If WRONG>10 Then MUT=MUT+1 : WRONG=1
If MUT=10 Then MUT=0
Bob 6,0,73,WRONG/11+MUT
Bob 7,35,73,WRONG
Return
RRICHTIG:
Print At(0,14);"Correct:"
If RIGHT>10 Then NUTTE=NUTTE+1 : RIGHT=1
If NUTTE=10 Then NUTTE=0
Bob 8,0,120,RIGHT/11+NUTTE
Bob 9,35,120,RIGHT
Return
LOARD:
Open In 1,"flag"
Input #1,NUMMERN
Close 1
Return
LORD:
Randomize Timer
NUMMERN=NUMMERN-1
WAS=Rnd(NUMMERN)+1
ST$=Str$(WAS)
Open In 1,ST$
Input #1,T$
Close 1
Return